10 REM MODIFICATION (2002) BY JAMES T.   JONES OF PROGRAM 'EASY KEYS' (ON ISSUE
20 REM 46 OF LOADSTAR) BY STEVE         GOLDSMITH
30 CD$=CHR$(17):REM CURSOR DOWN
40 Q$=CHR$(34):REM QUOTATION MARK
50 CR$=CHR$(13):REM CARRIAGE RETURN
60 F$(1)="[147] LOAD"+Q$+"NEW DIR(52736).O"+Q$+",8,1"+CR$+"NEW"+CR$
70 F$(2)="[147] SYS52736"+CR$
80 F$(3)="[147] LOAD"+Q$+"ERR MSG(53120).O"+Q$+",8,1"+CR$+"NEW"+CR$
90 F$(4)="[147] SYS53120"+CR$
100 F$(5)="[147] CLOSE15:OPEN15,8,15,"+Q$+"I0"+Q$+":CLOSE15"+CR$
110 F$(6)="[147] CLOSE15:OPEN15,8,15,"+Q$+"V0"+Q$+":CLOSE15"+CR$
120 F$(7)="[147] [198]1:LOAD DIR [198]2:DISPLAY DIR [198]3:LOAD FILE   [198]4:DRIVE STATUS"+CD$+CR$
130 F$(8)="[147] [198]5:INITIALIZE DRIVE [198]6:'V' DISK   [198]7,[198]8:KEY DEFINITIONS"+CD$+CR$
140 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(14):POKE214,11:PRINT
150 PRINTSPC(15)"[204][207][193][196][201][206][199] FILES...."
160 SYS57812"EZ F KEYS.O",8,0:POKE780,0:POKE781,16:POKE782,192:SYS65493
170 SYS57812"NEW DIR(52736).O",8,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
180 SYS57812"ERR MSG(53120).O",8,0:POKE780,0:POKE781,128:POKE782,207:SYS65493
190 T$="[197][218] [195]-64 [198][213][206][195][212][201][207][206] [203][197][217][211]":PRINT"[147]"SPC(20-LEN(T$)/2)T$""
200 PRINT"     [212]HIS PROGRAM CREATES OPERATIONS"
210 PRINT"ACCESSED BY PRESSING THE INDICATED"
220 PRINT"FUNCTION KEYS.  [213]SE DEVICE NUMBER 8."
230 PRINT"[198]1: LOAD AN ML PROGRAM TO DISPLAY THE"
240 PRINT"    THE DIRECTORY OF A DISKETTE.  [197]NTER";
250 PRINT"    'NEW' IN DIRECT MODE AFTERWARD."
260 PRINT"[198]2: ENTER SYS 52736 TO DISPLAY DIRECTORY"
270 PRINT"[198]3: LOAD AN ML PROGRAM TO DISPLAY THE"
280 PRINT"    DISK DRIVE STATUS.  [197]NTER 'NEW' IN"
290 PRINT"    DIRECT MODE AFTERWARD."
300 PRINT"[198]4: ENTER SYS 53120 TO DISPLAY DISK"
310 PRINT"    DRIVE STATUS."
320 PRINT"        PRESS <[211][208][193][195][197]> TO CONTINUE"
330 GETA$:IF A$<>" " THEN330 
340 PRINT"[147][198]5: INITIALIZE DISK DRIVE."
350 PRINT"[198]6: VALIDATE DISKETTE."
360 PRINT"[198]7: SHOW FUNCTION KEY ASSIGNMENTS"
370 PRINT"[198]8: SHOW FUNCTION KEY ASSIGNMENTS"
380 PRINT"     [194]Y CHANGING THE EXPRESSIONS FOR"
390 PRINT"THE FUNCTIONS F$(N) IN THE BEGINNING"
400 PRINT"LINES OF THE PROGRAM, YOU CAN CHANGE"
410 PRINT"THE OPERATIONS THAT THE FUNCTION KEYS"
420 PRINT"CARRY OUT.  [217]OU WILL WANT TO CHANGE"
430 PRINT"THE CORRESPONDING DESCRIPTIONS, AS"
440 PRINT"WELL.  [194]E SURE TO [211][193][214][197] THE RESULTING"
450 PRINT"PROGRAM!"
460 PRINT"     [206]OW, EXIT THE PROGRAM AND USE"
470 PRINT"THOSE FUNCTION KEYS ON YOUR [195]-64!"
480 POKE214,22:PRINT:PRINT"     PRESS <[211][208][193][195][197]> TO EXIT PROGRAM"
490 GETA$:IF A$<>" " THEN490 
500 BU=49408:OPEN1,0
510 PRINT"[147]    [201]NFORMATION IS BEING ENTERED....    [146]"
520 FORA=1TO8:HI=INT(BU/256):LO=BU-HI*256:POKE49152+(A-1)*2,LO
530 POKE49153+(A-1)*2,HI:READB:FORC=1TOLEN(F$(B))
540 POKE BU,ASC(MID$(F$(B),C,1)+CHR$(0)):BU=BU+1:NEXT:NEXT:SYS49168:NEW
560 REM FUNCTION KEY EVALUATION
570 DATA7,1,3,5,8,2,4,6
10000 N$="C-64 F KEYS.BAS2":D=PEEK(186):IF D<8 THEN D=8
10010 CLOSE15:OPEN15,D,15,"S:"+N$:CLOSE15:SAVE N$,D:VERIFY N$,D:END